home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
ipdldemo.exe
/
lha
/
GTOSIDIR.XFU
< prev
next >
Wrap
Text File
|
1991-02-27
|
247b
|
3 lines
%%HP: T(3)A(D)F(.);
\<< IFERR 'xFgI' PURGE OBJ\-> \-> id \<< HOME xFxD EVAL 1 id SIZE FOR i id i GET IF { HOME UPDIR } OVER POS 15 TVARS 3 PICK POS OR THEN EVAL ELSE DUP CRDIR EVAL END NEXT \>> PATH HOME DUP 'xFiD' STO EVAL THEN CLOSEIO END \>>